      Sub Log(ByVal txt As String)
      'Open a file for writing
      Dim FILENAME As String = Server.MapPath("Log.txt")

      'Get a StreamReader class that can be used to read the file
      Dim objStreamWriter As StreamWriter

      objStreamWriter = File.AppendText(FILENAME)

      objStreamWriter.WriteLine(DateTime.Now.ToString() + " >> " + txt)

      'Close the stream
      objStreamWriter.Close()
      End Sub